home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00539.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  254 b   |  18 lines
  1. on mouseUp
  2.   global drums, i, switchit
  3.   set drums to 0
  4.   puppetSound(1, 0)
  5.   puppetSound(3, 73)
  6.   zoom()
  7.   zoom()
  8.   zoom()
  9.   zoom()
  10.   unLoadCast()
  11.   go(#next)
  12.   repeat with i = 1 to 30000
  13.     nothing()
  14.   end repeat
  15.   do("sel27")
  16.   set switchit to 0
  17. end
  18.